From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sat, 17 Sep 2011 09:29:01 +0000 (+0200)
Subject: * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2242
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=77ac6c934d02d25dffba60a12fb1c61ca1ab75db;p=emacs.git

* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
check.  (Bug#4251)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7a4147f590..41417b478a2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-17  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
+	check.  (Bug#4251)
+
 2011-09-17  Juri Linkov  <juri@jurta.org>
 
 	* window.el (window-safe-min-height, window-safe-min-width):
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 127f93c6858..fae402d4215 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -834,7 +834,7 @@ CONST2 may be evaulated multiple times."
       (setcar (cdr bytes-tail) (logand pc 255))
       (setcar bytes-tail (lsh pc -8))
       ;; FIXME: Replace this by some workaround.
-      (if (> (car bytes) 255) (error "Bytecode overflow")))
+      (if (> (car bytes-tail) 255) (error "Bytecode overflow")))
 
     (apply 'unibyte-string (nreverse bytes))))